home *** CD-ROM | disk | FTP | other *** search
/ Asobe! Fotoshock 5.0 ERO / Asobe! Fotoshock 5.0 ERO.iso / pc / tool.dxr / 00025_êVï¤ëðÉRÉ}ÉìÉh.ls < prev    next >
Encoding:
Text File  |  1999-03-23  |  1.1 KB  |  43 lines
  1. global gphotoloclist, gpartslist
  2.  
  3. on btncmd
  4.   set gphotoloclist to [:]
  5.   tell getAt(the windowList, 1)
  6.     repeat with m = 1 to count(gpartslist)
  7.       set locallist to [:]
  8.       set myins to getAt(gpartslist, m)
  9.       set num to getPropAt(gpartslist, m)
  10.       addProp(locallist, #loc, the loc of sprite num)
  11.       if the newmem of myins = the member of sprite num then
  12.         if the pmode of myins = #face then
  13.           addProp(locallist, #cast, 0)
  14.         else
  15.           addProp(locallist, #cast, 1)
  16.         end if
  17.       else
  18.         addProp(locallist, #cast, 0)
  19.       end if
  20.       if the pmode of myins = #rgb then
  21.         set rgbmem to the defmem of myins
  22.         set nowrgblist to geteffectargs(rgbmem, #rgb)
  23.         addProp(locallist, #rgb, nowrgblist)
  24.       end if
  25.       sort(locallist)
  26.       if not (locallist = [:]) then
  27.         set spn to value("#" & string(num))
  28.         addProp(gphotoloclist, spn, locallist)
  29.       end if
  30.     end repeat
  31.   end tell
  32.   sort(gphotoloclist)
  33.   if the shiftDown then
  34.     tell the stage
  35.       writeonedata()
  36.     end tell
  37.   else
  38.     tell the stage
  39.       writedata()
  40.     end tell
  41.   end if
  42. end
  43.